1 POKE52,48:POKE56,48:CLR
5 DIMQ(80):GOSUB600:GOSUB700:GOSUB800:GOSUB900
10 D$="([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]([157]("
20 B$="(((((((((((((((((((((((((((((((((((((((":C$="("
30 PRINT"[147]":C=54272:SC=1024:F=99:K=40:G=32:W=42:I=43:Q1=41:Q4=44:Q5=45:Q6=46
40 E=1:LL=.:L=2:U=7:CC=3:CO=5
50 YY=.:XX=.:XY=39:YX=24:JJ=80
60 RR=RR+1
61 PRINT"[159]"LEFT$(C$,E+YY)B$;"(";""LEFT$(C$,YX+E)"[157]"B$"";
65 PRINTTAB(XX)D$""TAB(XY)D$""
70 IFRR=ETHENPOKE2023,K:POKE2023+C,CC
80 YY=YY+E:XX=XX+E:XY=XY-E:YX=YX-E
90 P1=.:IFRR>1ANDRZ=.THENRZ=1:GOTO61
95 IFRR>1THENPRINT""TAB(XX)D$""TAB(XY)D$"":XX=XX+E:XY=XY-E
100 D=.:N=2:P=.:S=1524:POKES,Q4:POKES+C,CO:Q(E)=S:RZ=.:HH=4:IFRR>4THENHH=2
110 B=E
130 GG=15:H=251
140 IFSP<ETHENSP=E
150 PP=SP*10-10:Q=Q4:A=L:EE=.:IFRR=6THENPP=PP+100:GG=7
160 IFRR<>ETHENPRINT""RIGHT$(C$,25)RIGHT$(B$,35)""
161 IFRR<>ETHENPRINT"[159]"RIGHT$(C$,25)"SCORE ="SS;"LIVES ="CC-LL"RACK ="RR""
170 GOTO320
180 SYS49152:IFPEEK(H)=0ORPEEK(H)=1THEN180
190 GOTO320
200 D=K:Q=Q5:GOTO240
210 D=-E:Q=Q6:GOTO240
220 D=-K:Q=Q1:GOTO240
230 D=E:Q=Q4
240 IFB=ETHEN550
250 IFPEEK(S+D)=KORPEEK(S+D)=ITHEN410
260 IFPEEK(S+D)=WTHENGOSUB540:P=P+E:N=N+HH:B=E
270 IFB=.THENPOKEM,W:POKEM+C,INT(RND(E)*V)+E
280 Q(A)=S+D:Z=A-N:IFZ<.THENZ=JJ+Z+E
290 POKEQ(Z),G:A=A+E:IFA>JJTHENA=.
300 POKEVV,V:POKES+C,CO:POKES,I:POKES+C+D,CO:POKES+D,Q:S=S+D:POKEVV,.
320 IFPP=.THENSYS49152:ONPEEK(H)+EGOTO240,180,200,210,220,230
330 FORT=ETOPP:NEXT:SYS49152:ONPEEK(H)+EGOTO240,180,200,210,220,230
380 PRINT"[158]HIT FIRE BUTTON"
390 SYS49152:IFPEEK(251)<>ETHEN390
400 RETURN
410 GOSUB1000:LL=LL+E:EE=E:P1=P1+P
430 R=INT(P*(RR^.5)/(SP^.125))
440 SS=SS+R:IFSS>FTHENF=F+100:LL=LL-E
450 FORT=0TOJJ:POKEQ(T),G:Q(T)=.:NEXT:POKEM,G
460 IFLL=CCTHEN500
470 IFEE=ETHEN100
480 IFRR<>6THEN60
490 RR=.:LL=LL-E:SP=SP-L:PRINT"[147]":GOTO50
500 PRINT"[147] YOUR SCORE:"SS
510 IFSS>HSTHENHS=SS
520 PRINT" HIGH SCORE:"HS
530 GOSUB380:GOSUB800:SS=.:RR=.:GOTO30
540 POKEVV,5:FORT=1TO10:NEXT:POKEVV,10:FORT=1TO10:NEXT:POKEVV,15:FORT=1TO20:NEXT
541 POKEVV,.:RETURN
550 IFP1+P=GGTHEN430
560 MX=INT(RND(E)*(XY-XX+E)+XX):MY=INT(RND(E)*(YX-YY+E)+YY):M=SC+MX+K*MY:B=.
570 IFM=S+DTHENB=E
580 IFPEEK(M)<>GTHENB=E
590 GOTO250
600 POKE53280,12:POKE53281,12:PRINT"[147][144]  PLEASE WAIT A FEW MOMENTS FOR THE"
610 PRINT"CHARACTER AND ML DATA TO LOAD:"
615 PRINTCHR$(142):POKE56334,0:POKE1,51
620 FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT
625 POKE1,55:POKE56334,129
630 FORI=12608TO12608+55:READA:POKEI,A:NEXT:POKE53272,28
635 I=49152
640 READA:IFA=-1THENRETURN
645 POKEI,A:I=I+1:GOTO640
650 DATA255,255,255,255,255,255,255,255
655 DATA24,24,60,126,219,126,126,60
660 DATA0,99,20,255,8,54,65,65
665 DATA24,90,36,219,219,36,90,24
670 DATA16,120,236,255,255,236,120,16
675 DATA60,126,126,219,126,60,24,24
680 DATA8,30,55,255,255,55,30,8
685 DATA169,,133,251,173,,220,41,31,201,15,240,17,201,29,240,18,201,27,240,19
690 DATA201,30,240,20,201,23,240,21,96,169,1,133,251,96,169,2,133,251,96,169,3
695 DATA133,251,96,169,4,133,251,96,169,5,133,251,96,-1
700 PRINT"  PUSH JOYSTICK FIRE BUTTON FOR         INSTRUCTIONS"
705 PRINT"                  OR"
710 PRINT"  PUSH JOYSTICK IN ANY DIRECTION TO     START THE GAME"
715 SYS49152
720 IFPEEK(251)>1THENRETURN
725 IFPEEK(251)=1THENGOTO735
730 GOTO715
735 POKE53280,0:POKE53281,0:PRINT"[147]         .++++THE MAD ADDER+++++"
740 PRINT"GET THE SPIDERS * [158]* *"
745 PRINT"BUT NOTHING ELSE!!!"
750 PRINT"YOU HAVE THREE LIVES TO START"
755 PRINT"EARN ONE LIFE FOR EACH 100 POINTS OR"
760 PRINT"EARN ONE LIFE FOR COMPLETING ALL LEVELS"
765 PRINT"USE JOYSTICK TO CONTROL THE ADDER"
770 PRINT"PUSH THE FIRE BUTTON DURING PLAY TO "
775 PRINT"PAUSE"
780 PRINT"PUSH JOYSTICK ANY DIRECTION TO START    AGAIN AFTER A PAUSE
785 [153]"    SYSPUSH FIRE SYSBUTTON NOW TO START"
790 [158]49152:[139][194](251)[178]1[167][142]
795 [137]790
800 [151]53281,0:[151]53280,3:[151]53272,21
805 [153]"LOADOPENSPEED ?  (1-9)"
810 [161]A$:[139]A$[178]""[167]810
815 SP[178][197](A$):[139]SP[179]1[176]SP[177]9[167]805
820 [151]53272,28:[142]
900 [129]LZ[178]54272[164]54296:[151]LZ,0:[130]
910 [151]54273,5:[151]54272,48
915 AA[178]54277:[151]AA,5:S1[178]54278:[151]S1,15
920 WW[178]54276:[151]WW,33:VV[178]54296:V[178]15:[142]
1000 [129]LZ[178]54272[164]54296:[151]LZ,.:[130]:[151]54286,5:[151]54290,16:[151]54275,1
1010 [151]54296,143:[151]54278,240:[151]54276,65:FR[178]5389:[129]T[178]1[164]75
1020 FQ[178]FR[170][194](54299)[172]3.5:HF[178][181](FQ[173]256):LF[178]FQ[171]HF[172]256:[151]S[170]C,[181]([187](E)[172]V)[170]E
1030 [151]54272,LF:[151]54273,HF:[130]:[151]54296,0:[141]900:[142]